home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / misc / volume22 / gnuchess / patch03 next >
Encoding:
Text File  |  1991-08-12  |  16.6 KB  |  618 lines
  1. Newsgroups: comp.sources.misc
  2. From: Mike McGann <mwm@hasler.ascom.ch>
  3. Subject:  v22i002:  gnuchess - gnuchess version 3.1+, Patch03
  4. Message-ID: <1991Aug13.043250.24690@sparky.IMD.Sterling.COM>
  5. X-Md4-Signature: c8b4fabf55f6def1ab97624c30b20e62
  6. Date: Tue, 13 Aug 1991 04:32:50 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: Mike McGann <mwm@hasler.ascom.ch>
  10. Posting-number: Volume 22, Issue 2
  11. Archive-name: gnuchess/patch03
  12. Environment: UNIX, DOS
  13. Patch-To: gnuchess: Volume 19, Issue 73-79
  14.  
  15. Enclosed is patch3 for gnuchess3.1+. It is mainly improvements to handling
  16. the opening book. These came from Philippe Schnoebelen  phs@lifia.imag.fr.
  17. I have checked them out and they seem to function fine. The diffs are against
  18. gnuchess3.1+ patchlevel 2.
  19.  
  20. mike
  21. ---
  22. #! /bin/sh
  23. # This is a shell archive, meaning:
  24. # 1. Remove everything above the #! /bin/sh line.
  25. # 2. Save the resulting text in a file.
  26. # 3. Execute the file with /bin/sh (not csh) to create the files:
  27. #    README.patch3
  28. #    patch3
  29. # This archive created: Mon Aug 12 13:06:48 1991
  30. export PATH; PATH=/bin:$PATH
  31. if test -f 'README.patch3'
  32. then
  33.     echo shar: will not over-write existing file "'README.patch3'"
  34. else
  35. cat << \SHAR_EOF > 'README.patch3'
  36. This is patch3 for gnuchess3.1+, It contains a set of improvements
  37. and fixes mainly in handling the opening book. They came from
  38.  phs@lifia.imag.fr (Philippe Schnoebelen). Phillipe sent me the 
  39. following note about the changes.
  40.  
  41. Mike McGann
  42. mwm@hslrswi.hasler.ascom.ch
  43.  
  44. ---
  45. I've made some more minor modifications because:
  46.  
  47. 1) if you edit the board and use more than 16 men, gnuchess is lost,
  48.  
  49. 2) if you quit the opening book and then backtrack, gnuchess has lost the
  50. book, 
  51.  
  52. 3) if you edit the board, gnuchess still use its book !
  53.  
  54. In addition, I allowed the '?' to be used in the opening book. A move
  55. tagged with '?' is not played by gnuchess. This allows teaching the program
  56. how to refute unsound traps, without letting it playing them.
  57.  
  58. Here is the patch. Do you know if anybody is coordinating the GnuChess
  59. development project ?
  60.  
  61. --Philippe
  62. SHAR_EOF
  63. fi # end of overwriting check
  64. if test -f 'patch3'
  65. then
  66.     echo shar: will not over-write existing file "'patch3'"
  67. else
  68. cat << \SHAR_EOF > 'patch3'
  69. *** 1.1    1991/08/12 10:41:10
  70. --- ChangeLog    1991/08/12 10:50:22
  71. ***************
  72. *** 1,4 ****
  73. --- 1,31 ----
  74. + Tue Aug  6 18:10:47 1991  Philippe Schnoebelen  (phs@lifia.imag.fr)
  75. + 
  76. +     * Modify handling of Book in Undo (previously, when you
  77. +     backtracked after quitting the book, the program was not able to
  78. +     use it again)
  79. + 
  80. +     * Modify handling of Book in EditBoard and other routines so that
  81. +     the Book is not used if you don't start from the regular initial board.
  82. + 
  83. + Mon Aug  5 17:26:59 1991  Philippe Schnoebelen  (phs@lifia.imag.fr)
  84. + 
  85. +     * Modify parse in gnuchess.c so that a move can be followed by '?'
  86. +     indicating that the program should not play it itself. Such a move
  87. +     is stored with the highest bit raised.
  88. +           Modify OpeningBook in gnuchess.c so that moves with highest bit
  89. +     set are recognized but not played by the program.
  90. + 
  91. +     * Modify the declaration of array PieceList in gnuchess.[ch] to
  92. +     allow for up to 64 men of the same side. Such artificial
  93. +     situations can be built with edit and the program must be able to
  94. +     deal with them.
  95. + 
  96. + Mon Aug 1 10:20 1991 Mike McGann {mwm@hslrswi.hasler.ascom.ch)
  97. +     Split chesstool and xboard versions. Xboard is now
  98. +     gnuchessx and chesstool is gnuchessc.
  99. + 
  100.   Mon Apr 15 10:20 1991 Mike McGann {mwm@hslrswi.hasler.ascom.ch)
  101. +     Changed transposition table to cache positions found in transposition file
  102.       Fix Undo's incorrect handling of promotions.
  103.       Fix win and draw determination bugs.
  104.        Fix bug in algbr that prevented correct display of promotion moves.
  105. *** 1.2    1991/08/12 10:43:46
  106. --- Makefile    1991/08/12 10:50:22
  107. ***************
  108. *** 75,83 ****
  109.   postprint: postprint.o
  110.       $(CC) $(CFLAGS) -o postprint postprint.o
  111.       
  112. ! gnuchessd: gnuchess.c nuxdsp.c
  113. !     $(CC) $(CFLAGS) $(HASH) $(BOOK) -DCHESSTOOL -DDEBUG -o  gnuchessd  nondsp.c gnuchess.c
  114. !     rm nondsp.o gnuchess.o
  115.   
  116.   gnuan.o: gnuan.c gnuchess.h version.h
  117.       $(CC) $(CFLAGS) $(HASH) $(BOOK) -c gnuan.c
  118. --- 75,83 ----
  119.   postprint: postprint.o
  120.       $(CC) $(CFLAGS) -o postprint postprint.o
  121.       
  122. ! gnuchessd:  nondsp.c gnuchess.c
  123. !     $(CC) -Wall -fstrength-reduce -p -g -Dinline="" $(HASH) $(BOOK) -DCHESSTOOL -DDEBUG -o  gnuchessd  nondsp.c gnuchess.c
  124. ! 
  125.   
  126.   gnuan.o: gnuan.c gnuchess.h version.h
  127.       $(CC) $(CFLAGS) $(HASH) $(BOOK) -c gnuan.c
  128. *** 1.1    1991/08/12 10:41:10
  129. --- gnuan.c    1991/08/12 10:50:23
  130. ***************
  131. *** 516,521 ****
  132. --- 516,523 ----
  133.     flag.mate = false;
  134.     Sdepth = 0;
  135.     InitializeStats ();
  136. +   if (flag.regularstart)
  137. +     Book = BKBook;
  138.   }
  139.   
  140.   void
  141. *** 1.1    1991/08/12 10:41:10
  142. --- gnuchess.book    1991/08/12 10:50:23
  143. ***************
  144. *** 3901,3903 ****
  145. --- 3901,3951 ----
  146.   d1e2  f6e4
  147.   a1c1  a8c8
  148.   !
  149. + ! Sicilian - Morra Gambit (declined)
  150. + e2e4  c7c5
  151. + d2d4? c5d4
  152. + c2c3  d4d3
  153. + !
  154. + e2e4  c7c5
  155. + d2d4? c5d4
  156. + g1f3  e7e6
  157. + !
  158. + ! Alekhine's Defence
  159. + e2e4  g8f6
  160. + f1c4  f6e4?
  161. + c4f7  e8f7
  162. + d1h5  f7e6
  163. + h5g4  e6d5
  164. + c2c4
  165. + !
  166. + e2e4  g8f6
  167. + f1c4  e7e5
  168. + !
  169. + ! Damiano defence (how to refute it)
  170. + e2e4 e7e5
  171. + g1f3 f7f6?
  172. + f3e5 f6e5
  173. + d1h5 e8e7
  174. + h5e5 e7f7
  175. + f1c4
  176. + !
  177. + ! Two Knights Defence
  178. + e2e4  e7e5
  179. + g1f3  b8c6
  180. + f1c4  g8f6
  181. + f3g5  d7d5
  182. + e4d5  f6d5?
  183. + g5f7  e8f7
  184. + d1f3  f7e6
  185. + b1c3
  186. + !
  187. + ! Hungarian Defence
  188. + e2e4  e7e5
  189. + g1f3  b8c6
  190. + f1c4  f8e7?
  191. + d2d4  e5d4
  192. + c2c3  d4c3
  193. + d1d5  g8h6
  194. + c1h6  e8g8
  195. + h6g7
  196. + !
  197. *** 1.1    1991/08/12 10:41:10
  198. --- gnuchess.c    1991/08/12 10:50:24
  199. ***************
  200. *** 145,151 ****
  201.   char listfile[128] = "";
  202.   struct leaf Tree[2000], *root;
  203.   short TrPnt[maxdepth];
  204. ! short PieceList[2][16], PawnCnt[2][8];
  205.   #define wking PieceList[white][0]
  206.   #define bking PieceList[black][0]
  207.   #define EnemyKing PieceList[c2][0]
  208. --- 145,151 ----
  209.   char listfile[128] = "";
  210.   struct leaf Tree[2000], *root;
  211.   short TrPnt[maxdepth];
  212. ! short PieceList[2][64], PawnCnt[2][8];
  213.   #define wking PieceList[white][0]
  214.   #define bking PieceList[black][0]
  215.   #define EnemyKing PieceList[c2][0]
  216. ***************
  217. *** 320,330 ****
  218.   const short Stcolor[64] =
  219.   {white, white, white, white, white, white, white, white,
  220.    white, white, white, white, white, white, white, white,
  221. !  2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
  222. !  2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
  223.    black, black, black, black, black, black, black, black,
  224.    black, black, black, black, black, black, black, black};
  225.   short board[64], color[64];
  226.   static unsigned char nextpos[8][64][64];
  227.   static unsigned char nextdir[8][64][64];
  228.   /*
  229. --- 320,346 ----
  230.   const short Stcolor[64] =
  231.   {white, white, white, white, white, white, white, white,
  232.    white, white, white, white, white, white, white, white,
  233. !  neutral, neutral, neutral, neutral, neutral, neutral, neutral, neutral,
  234. !  neutral, neutral, neutral, neutral, neutral, neutral, neutral, neutral,
  235. !  neutral, neutral, neutral, neutral, neutral, neutral, neutral, neutral,
  236. !  neutral, neutral, neutral, neutral, neutral, neutral, neutral, neutral,
  237.    black, black, black, black, black, black, black, black,
  238.    black, black, black, black, black, black, black, black};
  239.   short board[64], color[64];
  240. + /* nextpos[piece][from-square] , nextdir[piece][from-square] gives vector of positions reachable from from-square 
  241. +     in ppos with piece such that the sequence    
  242. +             ppos = nextpos[piece][from-square];
  243. +             pdir = nextdir[piece][from-square];
  244. +             u = ppos[sq];
  245. +             do {
  246. +                 u = ppos[u];
  247. +                 if(color[u] != neutral) u = pdir[u];
  248. +             } while (sq != u);
  249. +     will generate the sequence of all squares reachable from sq.
  250. + 
  251. +     If the path is blocked u = pdir[sq] will generate the continuation of the sequence in other directions.
  252. + */
  253. +     
  254.   static unsigned char nextpos[8][64][64];
  255.   static unsigned char nextdir[8][64][64];
  256.   /*
  257. ***************
  258. *** 337,342 ****
  259. --- 353,359 ----
  260.   {
  261.     no_piece, pawn, knight, bishop, rook, queen, king, no_piece,
  262.     no_piece, bpawn, knight, bishop, rook, queen, king, no_piece};
  263. + /* data used to generate nextpos/nextdir */
  264.   static const short direc[8][8] =
  265.   {
  266.     0, 0, 0, 0, 0, 0, 0, 0,
  267. ***************
  268. *** 691,696 ****
  269. --- 708,714 ----
  270.     time0 = time ((long *) 0);
  271.     ElapsedTime (1);
  272.     UpdateDisplay (0, 0, 1, 0);
  273. +   flag.regularstart = true;
  274.     Book = BKBook;
  275.   }
  276.   
  277. ***************
  278. *** 800,806 ****
  279.   
  280.         for (i = TrPnt[1]; i < TrPnt[2]; i++)
  281.       pick (i, TrPnt[2] - 1);
  282. !       if (Book != NULL)
  283.       OpeningBook (&hint);
  284.         if (Book != NULL)
  285.       flag.timeout = true;
  286. --- 818,824 ----
  287.   
  288.         for (i = TrPnt[1]; i < TrPnt[2]; i++)
  289.       pick (i, TrPnt[2] - 1);
  290. !       if (flag.regularstart && Book != NULL)
  291.       OpeningBook (&hint);
  292.         if (Book != NULL)
  293.       flag.timeout = true;
  294. ***************
  295. *** 862,868 ****
  296.     if (rpt >= 2)
  297.       {
  298.         root->flags |= draw;
  299. !       DRAW = "Repitition";
  300.       }
  301.     if (score < -12000)
  302.       {
  303. --- 880,886 ----
  304.     if (rpt >= 2)
  305.       {
  306.         root->flags |= draw;
  307. !       DRAW = "Repetition";
  308.       }
  309.     if (score < -12000)
  310.       {
  311. ***************
  312. *** 931,937 ****
  313.     while ((c = getc (fd)) == ' ') ;
  314.     i = 0;
  315.     s[0] = (char) c;
  316. !   while (c != ' ' && c != '\n' && c != EOF)
  317.       s[++i] = (char) (c = getc (fd));
  318.     s[++i] = '\0';
  319.     if (c == EOF)
  320. --- 949,955 ----
  321.     while ((c = getc (fd)) == ' ') ;
  322.     i = 0;
  323.     s[0] = (char) c;
  324. !   while (c != '?' && c != ' ' && c != '\t' && c != '\n' && c != EOF)
  325.       s[++i] = (char) (c = getc (fd));
  326.     s[++i] = '\0';
  327.     if (c == EOF)
  328. ***************
  329. *** 954,959 ****
  330. --- 972,981 ----
  331.         r2 = s[3] - '1';
  332.         *mv = (locn (r1, c1) << 8) | locn (r2, c2);
  333.       }
  334. +   if (c == '?') {        /* Bad move, not for the program to play */
  335. +     *mv |= 0x8000;        /* Flag it ! */
  336. +     c = getc(fd);
  337. +  }
  338.     return (1);
  339.   }
  340.   
  341. ***************
  342. *** 965,971 ****
  343.      into an unsigned integer format indicating the from and to square. Create
  344.      a linked list of opening lines of play, with entry->next pointing to the
  345.      next line and entry->move pointing to a chunk of memory containing the
  346. !    moves. More Opening lines of up to 256 half moves may be added to
  347.      gnuchess.book.
  348.   */
  349.   #ifndef BOOK
  350. --- 987,993 ----
  351.      into an unsigned integer format indicating the from and to square. Create
  352.      a linked list of opening lines of play, with entry->next pointing to the
  353.      next line and entry->move pointing to a chunk of memory containing the
  354. !    moves. More Opening lines of up to 100 half moves may be added to
  355.      gnuchess.book.
  356.   */
  357.   #ifndef BOOK
  358. ***************
  359. *** 1036,1042 ****
  360.     unsigned short m, *mp;
  361.     unsigned r, r0;
  362.     struct BookEntry *p;
  363. ! 
  364.     srand ((unsigned int) time ((long *) 0));
  365.     r0 = m = 0;
  366.     p = Book;
  367. --- 1058,1064 ----
  368.     unsigned short m, *mp;
  369.     unsigned r, r0;
  370.     struct BookEntry *p;
  371. !   
  372.     srand ((unsigned int) time ((long *) 0));
  373.     r0 = m = 0;
  374.     p = Book;
  375. ***************
  376. *** 1044,1057 ****
  377.       {
  378.         mp = p->mv;
  379.         for (j = 1; j <= GameCnt; j++)
  380. !     if (GameList[j].gmove != *(mp++))
  381.         break;
  382. !       if (j > GameCnt)
  383.       if ((r = urand ()) > r0)
  384.         {
  385.           r0 = r;
  386. !         m = *mp;
  387. !         *hint = *(++mp);
  388.         }
  389.         p = p->next;
  390.       }
  391. --- 1066,1080 ----
  392.       {
  393.         mp = p->mv;
  394.         for (j = 1; j <= GameCnt; j++)
  395. !     if ( GameList[j].gmove != (*(mp++) & 0x7FFF) ) {
  396.         break;
  397. !        }
  398. !       if ( (j > GameCnt) && ((*mp & 0x8000) == 0) )
  399.       if ((r = urand ()) > r0)
  400.         {
  401.           r0 = r;
  402. !         m = (*mp & 0x7FFF);
  403. !         *hint = (*(++mp) & 0x7FFF);
  404.         }
  405.         p = p->next;
  406.       }
  407. *** 1.1    1991/08/12 10:41:10
  408. --- gnuchess.h    1991/08/12 10:50:24
  409. ***************
  410. *** 109,114 ****
  411. --- 109,115 ----
  412.     short mate;        /* the game is over */
  413.     short post;        /* show principle variation */
  414.     short quit;        /* quit/exit gnuchess */
  415. +   short regularstart;    /* did the game start from standard initial board ? */
  416.     short reverse;    /* reverse board display */
  417.     short bothsides;    /* computer plays both sides */
  418.     short hash;        /* enable/disable transposition table */
  419. ***************
  420. *** 123,129 ****
  421.   extern char savefile[128], listfile[128];
  422.   extern short TrPnt[maxdepth];
  423.   extern short board[64], color[64];
  424. ! extern short PieceList[2][16], PawnCnt[2][8];
  425.   extern short castld[2], Mvboard[64];
  426.   extern short svalue[64];
  427.   extern struct flags flag;
  428. --- 124,130 ----
  429.   extern char savefile[128], listfile[128];
  430.   extern short TrPnt[maxdepth];
  431.   extern short board[64], color[64];
  432. ! extern short PieceList[2][64], PawnCnt[2][8];
  433.   extern short castld[2], Mvboard[64];
  434.   extern short svalue[64];
  435.   extern struct flags flag;
  436. ***************
  437. *** 136,142 ****
  438.   extern struct GameRec GameList[200];
  439.   extern short GameCnt, Game50;
  440.   extern short Sdepth, MaxSearchDepth;
  441. ! extern struct BookEntry *Book;
  442.   extern struct TimeControlRec TimeControl;
  443.   extern short TCflag, TCmoves, TCminutes, OperatorTime;
  444.   extern const short otherside[3];
  445. --- 137,143 ----
  446.   extern struct GameRec GameList[200];
  447.   extern short GameCnt, Game50;
  448.   extern short Sdepth, MaxSearchDepth;
  449. ! extern struct BookEntry *Book, *BKBook;
  450.   extern struct TimeControlRec TimeControl;
  451.   extern short TCflag, TCmoves, TCminutes, OperatorTime;
  452.   extern const short otherside[3];
  453. *** 1.3    1991/08/12 10:43:46
  454. --- nondsp.c    1991/08/12 10:50:24
  455. ***************
  456. *** 148,153 ****
  457. --- 148,160 ----
  458.           {
  459.             mvstr[0][4] = mvstr[1][2] = mvstr[2][m3p] = qxx[flag & pmask];
  460.             mvstr[1][3] = mvstr[2][m3p + 1] = mvstr[0][5] = '\0';
  461. + #ifdef CHESSTOOL
  462. +           mvstr[3][0] = mvstr[0][0]; /* Allow e7e8 for chesstool */
  463. +           mvstr[3][1] = mvstr[0][1];
  464. +           mvstr[3][2] = mvstr[0][2];
  465. +           mvstr[3][3] = mvstr[0][3];
  466. +           mvstr[3][4] = '\0';
  467. + #endif
  468.           }
  469.         mvstr[2][m3p] = mvstr[1][2] = '\0';
  470.       }
  471. ***************
  472. *** 340,345 ****
  473. --- 347,354 ----
  474.     short a, r, c, sq, i;
  475.     char s[80];
  476.   
  477. +   flag.regularstart = false;
  478. +   Book = NULL;
  479.     ClrScreen ();
  480.     UpdateDisplay (0, 0, 1, 0);
  481.     printz (".   exit to main\n");
  482. ***************
  483. *** 802,807 ****
  484. --- 811,818 ----
  485.           }
  486.       }
  487.         GameCnt = 0;
  488. +       flag.regularstart = false;
  489. +       Book = NULL;
  490.         fgets (fname, 256, fd);
  491.         fgets (fname, 256, fd);
  492.         fgets (fname, 256, fd);
  493. ***************
  494. *** 863,868 ****
  495. --- 874,881 ----
  496.     if ((fd = fopen (fname, "r")) != NULL)
  497.       {
  498.         NewGame ();
  499. +       flag.regularstart = false;
  500. +       Book = NULL;
  501.         fgets (fname, 256, fd);
  502.         fname[6] = '\0';
  503.         if (strcmp (fname, "xboard"))
  504. ***************
  505. *** 1057,1062 ****
  506. --- 1070,1077 ----
  507.     ShowSidetoMove();
  508.     UpdateDisplay (0, 0, 1, 0);
  509.     InitializeStats ();
  510. +   if (flag.regularstart)
  511. +     Book = BKBook;
  512.   }
  513.   
  514.   void
  515. *** 1.1    1991/08/12 10:41:10
  516. --- nuxdsp.c    1991/08/12 10:50:24
  517. ***************
  518. *** 381,386 ****
  519. --- 381,388 ----
  520.     short a, r, c, sq, i;
  521.     char s[80];
  522.   
  523. +   flag.regularstart = false;
  524. +   Book = NULL;
  525.     ClrScreen ();
  526.     UpdateDisplay (0, 0, 1, 0);
  527.     gotoXY (TAB, 3);
  528. ***************
  529. *** 1137,1142 ****
  530. --- 1139,1146 ----
  531.       }
  532.       }
  533.     GameCnt = 0;
  534. +   flag.regularstart = false;
  535. +   Book = NULL;
  536.     fgets (fname, 256, fd);
  537.     fgets (fname, 256, fd);
  538.     fgets (fname, 256, fd);
  539. ***************
  540. *** 1206,1211 ****
  541. --- 1210,1217 ----
  542.     if ((fd = fopen (fname, "r")) != NULL)
  543.       {
  544.         NewGame ();
  545. +       flag.regularstart = false;
  546. +       Book = NULL;
  547.         fgets (fname, 256, fd);
  548.         fname[6] = '\0';
  549.         if (strcmp (fname, "xboard"))
  550. ***************
  551. *** 1423,1428 ****
  552. --- 1429,1436 ----
  553.     ShowSidetoMove ();
  554.     UpdateDisplay (0, 0, 1, 0);
  555.     InitializeStats ();
  556. +   if (flag.regularstart)
  557. +     Book = BKBook;
  558.   }
  559.   
  560.   void
  561. *** 1.1    1991/08/12 10:41:10
  562. --- uxdsp.c    1991/08/12 10:50:24
  563. ***************
  564. *** 344,349 ****
  565. --- 344,351 ----
  566.     short a, r, c, sq, i;
  567.     char s[80];
  568.   
  569. +   flag.regularstart = false;
  570. +   Book = NULL;
  571.     ClrScreen ();
  572.     UpdateDisplay (0, 0, 1, 0);
  573.     gotoXY (TAB, 3);
  574. ***************
  575. *** 978,983 ****
  576. --- 980,987 ----
  577.       }
  578.       }
  579.     GameCnt = 0;
  580. +   flag.regularstart = false;
  581. +   Book = NULL;
  582.     fgets (fname, 256, fd);
  583.     fgets (fname, 256, fd);
  584.     fgets (fname, 256, fd);
  585. ***************
  586. *** 1049,1054 ****
  587. --- 1053,1060 ----
  588.     if ((fd = fopen (fname, "r")) != NULL)
  589.       {
  590.         NewGame ();
  591. +       flag.regularstart = false;
  592. +       Book = NULL;
  593.         fgets (fname, 256, fd);
  594.         fname[6] = '\0';
  595.         if (strcmp (fname, "xboard"))
  596. ***************
  597. *** 1266,1271 ****
  598. --- 1272,1279 ----
  599.     ShowSidetoMove();
  600.     UpdateDisplay (0, 0, 1, 0);
  601.     InitializeStats ();
  602. +   if (flag.regularstart)
  603. +     Book = BKBook;
  604.   }
  605.   
  606.   void
  607. SHAR_EOF
  608. fi # end of overwriting check
  609. #    End of shell archive
  610. exit 0
  611.  
  612. exit 0 # Just in case...
  613. -- 
  614. Kent Landfield                   INTERNET: kent@sparky.IMD.Sterling.COM
  615. Sterling Software, IMD           UUCP:     uunet!sparky!kent
  616. Phone:    (402) 291-8300         FAX:      (402) 291-4362
  617. Please send comp.sources.misc-related mail to kent@uunet.uu.net.
  618.